home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 3
/
Cream of the Crop 3.iso
/
comm
/
prtcs155.zip
/
SCTL.REX
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-01-14
|
2KB
|
44 lines
/**/
v="$VER: Sctl Rexx Shelter Access Control Panel Williamson 56.10"
if exists("LIBS:reqtools.library") & exists("LIBS:rexxreqtools.library") then do
call addlib("rexxreqtools.library", 1, -30, 0)
end;else do
say "Sorry, you are missing reqtools.library or rexxreqtools.library"
exit
end
options results
options failat 32001
mailer=getvar('SHELTER','G')
if mailer="ROOF" then envpath=""
else envpath=mailer
e.1="ACCESS"
e.2="BBS"
e.3="ALLOWFREQS"
e.4="FTSFREQS"
e.5="FAX"
e.6="UUCP"
e.7="NOANSWER"
do forever
do i=1 to 7
v.i=GetVar(envpath||e.i,"G")
end
bar=8
call rtezrequest( ,
lj("MENUS",bar)||" "||lj("BOARD",bar)||" "||lj("FREQS",bar)||" "||lj("FTSREQ",bar)||" "||lj("RCVFAX",bar) ,
||" "||lj("RCVUUCP",bar)||" "||lj("NOANSWER",bar)||" "||lj("UPDATE",bar)||" "||lj("SCTL",bar)||'0a'x ,
||lj(v.1,bar)||" "||lj(v.2,bar)||" "||lj(v.3,bar)||" "||lj(v.4,bar)||" "||lj(v.5,bar) ,
||" "||lj(v.6,bar)||" "||lj(v.7,bar)||" "||lj("DISPLAY",bar)||" "||lj("EXIT",bar)" " ,
,"MENU|CBBS|FREQ|FTSR|FAX|UUCP|NOANS|UPDT|QUIT" ,
,mailer "Shelter Mailer Inbound Access Control" ,"rtez_defaultresponse = 0")
if rtresult=0 then leave
if rtresult=8 then iterate
if v.rtresult="TRUE" then call SetVar(envpath||e.rtresult,"FALSE","G")
else call SetVar(envpath||e.rtresult,"TRUE","G")
end
exit
/* align text to left of field adding spaces or trucating on right to fit */
lj:
if length(arg(1)) > arg(2) then return (left(arg(1),arg(2)))
else return (arg(1) || copies(" ",arg(2)-length(arg(1))))